unit LogSemantic;

interface

uses SysUtils, Classes;

procedure GenDefMethod(ErrorList: TList);

implementation

uses LogData;

procedure GenDefMethodForType(Typedef: TTypedef);
begin
  if Typedef.MethodList.Count = 0 then
    TMethod.CreateDefault(Typedef);
end;

procedure GenDefMethod(ErrorList: TList);
var
  I: Integer;
begin
  for I := 0 to TypedefList.Count - 1 do
    GenDefMethodForType(TypedefList[I]);
end;

end.
